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m=20;delays=30;sig=.00;n=1 70; 

y=filter(h,1,r)+sig*n; 

htp1=ht(1:delays+m); 

pn=eye(m); 

L=length(ht); 

ind=delays+m:m:n; 

lind=length(ind); 

kg=zeros(m,(lind-1 ) *m+1); 

for j=1 rlind 

indO(1:m,j)=[(j-1) *m+1:j *m] +delays; 
end 

htemp=ht(ind0); 

for k-200: 10000 
ind1=k-ind0; 

[htemp(: l 1)k0,pn,an]=rls1(pn,y(k-1) ) r(ind1(: ( 1)) l htemp(: ) 1),1); 

for l=(ind-1)*m:-1:1 

kg(:,l+1)=kg(:,l): 
end 

kg(:,1)=k0; 
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end 
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